home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson2 / Lesson2.dcr / 00025_fill in with Last Name etc..ls < prev    next >
Encoding:
Text File  |  2001-11-19  |  1.0 KB  |  34 lines
  1. property spriteNum
  2.  
  3. on keyDown me
  4.   if (the key = RETURN) or (the key = TAB) then
  5.     if sprite(spriteNum).member.text <> EMPTY then
  6.       nom = EMPTY
  7.       if member("field:Mr.Mrs.").text <> EMPTY then
  8.         nom = nom & member("field:Mr.Mrs.").text & " "
  9.       end if
  10.       if member("field:First Name").text <> EMPTY then
  11.         nom = nom & member("field:First Name").text & " "
  12.       end if
  13.       if member("field:M.I.").text <> EMPTY then
  14.         nom = nom & member("field:M.I.").text & " "
  15.       end if
  16.       if member("field:Last Name").text <> EMPTY then
  17.         nom = nom & member("field:Last Name").text
  18.       end if
  19.       if line 1 of the text of member "field:Bill To" = EMPTY then
  20.         put nom into line 1 of field "field:Bill To"
  21.       else
  22.         if line 2 of the text of member "field:Bill To" = EMPTY then
  23.           put nom into line 2 of field "field:Bill To"
  24.         end if
  25.       end if
  26.       if member("field:Contact").text = EMPTY then
  27.         member("field:Contact").text = nom
  28.       end if
  29.     end if
  30.   else
  31.     pass()
  32.   end if
  33. end
  34.